home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Python 1.1 / Mac / mkdir.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-19  |  579 b   |  31 lines  |  [TEXT/KAHL]
  1. /* Mkdir for the Macintosh.
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  3.    Pathnames must be Macintosh paths, with colons as separators. */
  4.  
  5. #include "macdefs.h"
  6.  
  7. /* Create a directory. */
  8.  
  9. int
  10. mkdir(path, mode)
  11.     char *path;
  12.     int mode; /* Ignored */
  13. {
  14.     HFileParam pb;
  15.     char name[MAXPATH];
  16.         
  17.     if (!hfsrunning()) {
  18.         errno= ENODEV;
  19.         return -1;
  20.     }
  21.     strncpy(name, path, sizeof name);
  22.     pb.ioNamePtr= (StringPtr) c2pstr(name);
  23.     pb.ioVRefNum= 0;
  24.     pb.ioDirID= 0;
  25.     if (PBDirCreate((HParmBlkPtr)&pb, FALSE) != noErr) {
  26.         errno= EACCES;
  27.         return -1;
  28.     }
  29.     return 0;
  30. }
  31.